0 REM--AHOY--FEB ISSUE--CRSRLOC--PROG PAGE69
5 REM << CRSRLOC - LOCATE CURSOR >>
10 REM <<LISTING 1 -9/9/83>>
20 REM USE KERNAL ROUTINE 'PLOT' TO READ THE CURSOR'S POSITION
30 PRINT CHR$(147) :REM CLEAR SCREEN
40 REM STORE MACHINE LANGUAGE IN MEMORY
50 SA = 49168 :REM STARTING ADDRESS
60 X=0
70 READ B
80 IF B=-1 THEN 130
90 POKE SA+X,B
95 PRINT SA+X,B
100 X=X+1
110 GOTO 70
120 DATA 0,0,56,32,240,255,142,16,192,140,17,192,96,-1
130 REM--------------------------------
140 REM FIND OUT WHERE CURSOR IS NOW
150 GOSUB 200
160 PRINT ROW;COL
170 PRINT TAB(20):GOSUB 200
180 PRINT ROW;COL
190 END
200 SYS SA+2: REM GET CURSOR LOCATION
210 ROW=PEEK(SA)
220 COL=PEEK(SA+1)
230 RETURN